<%@ Language=VBScript %> <% If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" ElseIf Request("ip1")<>"" And not IsNumeric(replace(Request("ip1"),".","")) Then ef=True ec="ip1不对" ElseIf Request("ip2")<>"" And not IsNumeric(replace(Request("ip2"),".","")) Then ef=True ec="ip2不对" end if if not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsph = Server.CreateObject("ADODB.Recordset") if Request.QueryString ("op") ="all" then Sql="Select * from FreeHost.FreeHost_Product_Sql where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc" if Request.QueryString ("op") ="pause" then Sql="Select * from FreeHost.FreeHost_Product_Sql where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and endtime<'"&now&"' order by endtime desc" if Request.QueryString ("op") ="del" then Sql="Select * from FreeHost.FreeHost_Product_Sql where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and endtime<'"&dateadd("d",-30,now)&"' order by endtime desc" dsph.PageSize = 25 dsph.Open Sql,conn,1,3 if dsph.Eof then ef=True ec="此类数据库不存在！" end if end if if not ef then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsph.RecordCount <> 0 Then dsph.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsph.PageCount<=10 then endini=dsph.PageCount else endini=10 end if end if %> <%session("FreeHostCom").FreeHost_WR("html5")%> 数据库管理 <%session("FreeHostCom").FreeHost_WR("html6")%> <%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%>　<%next%> <%else%>　最新[1]--[10]　　现在是第[<%=pn%>]页 　共<%=dsph.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%>上一页<%End If%>|<%If Clng(pn)下一页<%End If%> <%while not dsph.Eof%>

<%=dsph("id")%>	产品类型：<%=dsph("Sqltype")%> 用户名:<%=dsph("username")%>	<%if dsph("endtime")>NOW then%> <%if dsph("istest")="y" then%> 目前处于试用期! <%else%> <%=dsph("status")%> <%end if%> <%else%> 已过期！ <%if dsph("status")="暂停" then%> 并且已暂停! <%end if%> <%end if%>	&id=<%=dsph("id")%>" target="_blank">管理 <%if Request.QueryString ("op") ="del" then%> &id=<%=dsph("id")%>">删除 <%end if%>
	开通时间:<%=dsph("starttime")%>　到期时间:<%=dsph("endtime")%>

<% Set dsserver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_ServerSqllist where id='"&dsph ("ServerlistID")&"'" dsserver.Open Sql,conn,1,1 if dsserver.Eof then%> 此数据库服务器在数据库中不存在！ <%else URL=dsserver("site") FreeHostsharekey=dsserver("FreeHostsharekey") userid=dsserver ("admname") pwd=dsserver("admpass") sqlname=dsph("sqlname") sqlpassword=dsph("sqlpassword") if Request.QueryString ("op") ="pause" then op=1 ret=PauseSQL(URL,FreeHostsharekey,userid,pwd,sqlname,sqlpassword,op) Response.Write ret dsph("status")="暂停" dsph.update end if if Request.QueryString ("op") ="del" then op=2 ret=PauseSQL(URL,FreeHostsharekey,userid,pwd,sqlname,sqlpassword,op) ret=ret&"删除成功" homedir=dsserver("homedir") username=dsph("ftpname") ftpdir=homedir&"\backup\"&sqlname&"_"&dsph("randir") varcon=" /E /T /R "&username todeluser=1 delacl=1 todelftp=1 if not isnull(dsph("ftpendtime")) then ret = ret&"删除这个库的备份FTP："&DelFTP(URL,FreeHostsharekey,username,ftpdir,varcon,todeluser,delacl,todelftp) end if if not isnull(dsph("randir")) then ret = ret&"删除这个库的备份目录："&DelDir(URL,FreeHostsharekey,ftpdir) end if opport=dsserver("port") for iipsec=1 to 2 if not isnull(dsph("ip"&iipsec)) then Set dsphip = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Sql where (ip1='"&dsph("ip"&iipsec)&"' or ip2='"&dsph("ip"&iipsec)&"') and id<>'"&dsph ("id")&"'" if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then Response.Write "非法字符！" Response.End end if dsphip.Open Sql,conn,1,3 if dsphip.Eof then opvar="del" ret=ret&OPIpsec(URL,FreeHostsharekey,opvar,dsph("ip"&iipsec),opport) response.write "删除允许的IP："&dsph("ip"&iipsec)&" " end if dsphip.close end if next FreeHost_clientlog conn,dsph ("username"),session("admusername"),"超级管理员操作","数据库产品",dsph ("id"),"删除","","",ret dsph.delete response.write ret end if %> <%end if%>

<% dsph.movenext wend dsph.close set dsph=nothing %> <%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>